home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1997 #1
/
Amiga Plus CD - 1997 - No. 01.iso
/
pd
/
daten
/
adm
/
installieren
< prev
next >
Wrap
Text File
|
1996-09-16
|
16KB
|
535 lines
; Installer installation script for ADM/AddressMaster
; --------------------------------------------------------------
; $VER: Install ADM 3.0 (29.3.96)
; Copyright by Jan Geissler 1996
(welcome "Willkommen bei der AddressMaster Installation")
(set @default-dest "")
(set @abort-button "Installation abbrechen")
(set @app-name "AddressMaster")
(set default_lang 1)
(set #msg-icon-prompt "Kopiere Icon.")
; DEF DATEIEN------------------------------------------------------------------
(set #msg-doserror-msg "DOS Fehler %ld aufgetreten.")
(set #msg-dest-prompt
(cat
"Wo soll das Unterverzeichnis \"ADM\" angelegt werden? "
"(Ein evtl. vorhandenes Verzeichnis wird umbenannt)"
)
)
(set #msg-dest-help
(cat
"Hier kann das Verzeichnis ausgewählt werden, "
"in dem ein ADM-Verzeichnis angelegt werden soll.\n"
"Das Verzeichnis wird unter dem Namen \"ADM\" "
"angelegt; ist ein solches schon vorhanden, wird "
"dieses umbenannt, d.h. Daten gehen NICHT verloren!"
)
)
; DEF MAGICWB------------------------------------------------------------------
(set #msg-lhxmagicwb "Ersetze Piktogramme durch MagicWB-Icons")
(set #msg-magicwb-prompt
(cat "\nBenutzen Sie die 8-Farb-MagicWB-Farbpalette?\n"
"Dann besteht hier die Möglichkeit, die 8-Farb-"
"Iconographics-Piktogramme durch MagicWB-Icons zu ersetzen. "
"('Hilfe' für nähere Erläuterung)\n\n"
)
)
(set #MagicWB "MagicWB (8-Farb-MagicWB)")
(set #Iconographics "Iconographics (4/8-Farb-WB)")
(set #MagicWBPr "Welche Piktogramme wollen Sie verwenden?")
(set #msg-magicwb-help
(cat "\nNormalerweise enthält die ADM-Distribution "
"8-Farb-Piktogramme der 'Iconographics'-Palette. "
"Diese sehen auch unter einer normalen Vier-Farb-Workbench "
"schön aus, was bei MagicWB-Icons nicht der Fall ist.\n\n"
"Wählen Sie nun, ob Sie die MagicWB-Piktogramme "
"benutzen wollen - NUR dann empfehlenswert, wenn Sie "
"auch die spezielle MagicWB-Farbpalette benutzen!"
)
)
; DEF AREXX-ARC------------------------------------------------------------------
(set #msg-lhxarexx "\n\n\nEntpacke Makro-Archiv...")
(set #msg-unpackarexx-prompt
(cat "\nWollen Sie mehr als 50 nützlichen Makros für ADM "
"gebrauchsfertig ins ADM-ARexx-Verzeichnis "
"entpacken?\n\n"
"Die Makros enthalten nützliche Anwendungen wie "
"verschiedenartige Listendrucke, Datenübergabe z.B. an "
"TeX, Faxprogramme, Editoren, FinalWriter, WordWorth "
"oder MSWord, MSExcel - und noch viel mehr!\n\n"
"Sie sind fast alle völlig ohne ARexx-Kenntnisse nutzbar!"
)
)
(set #msg-unpackarexx-help
(cat "'Yes' entpackt die nützlichen Makros gebrauchsfertig ins ADM-Verzeichnis, "
"'No' kopiert nur die LHA-gepackte Datei dorthin"
)
)
; DEF KEY INSTALL---------------------------------------------------------------
(set #msg-defexe-prompt "Kopiere Dateien...")
(set #msg-keyfile-prompt
(cat "Vielen Dank für die Registrierung von ADM!\n\n"
"Jetzt wird Ihr PERSÖNLICHES Key-File in DEVS: "
"installiert. Da es Ihren Namen und Ihre Adresse "
"enthält, darf es *KEINESFALLS WEITERGEGEBEN* werden!"
)
)
(set #msg-keyfile-help
(cat "\nDas PERSÖNLICHE Key-File kann nun ins entsprechende "
"Verzeichnis kopiert werden.\n"
"Da es Ihren Namen und Ihre Adresse enthält, darf es "
" *KEINESFALLS WEITERGEGEBEN* werden bzw. in "
"falsche Hände geraten!"
)
)
; DEF RENAME------------------------------------------------------------------
(set #msg-renameADM-help
(cat "\n\nUm ein Überschreiben einer alten Installation "
"zu verhindern, wird das alte Verzeichnis bei "
"Neuinstallation umbenannt".
)
)
; DATEIEN KOPIEREN-----------------------------------------------------------
(set #msg-copyadm-prompt
"Kopiere ADM-Distribution..."
)
(set #msg-copyicon-prompt
"Kopiere ADM-Icon..."
)
(set #msg-makediradm-prompt
"Erstelle ADM-Verzeichnis..."
)
(set #msg-copyold-prompt
"Kopiere vorhandene Adressdateien..."
)
(set #msg-copyform-prompt
"Kopiere vorhandene Formulardateien..."
)
(user 2)
(if (< (/ (getversion) 65536) 37)
(
(abort "ADM benötigt mindestens die Btriebssystemversion 2.04!")
)
)
(complete 0)
(message "\n"
"Hiermit kann\n\nADDRESSMASTER (ADM)\n- DIE deutschsprachige Adressverwaltung für den Amiga-\n\n"
"installiert werden. Ältere installierte Versionen werden NICHT überschrieben\n\n"
"AddressMaster is © 1993-96 by Jan Geissler\n"
"All rights reserved."
)
; Zielverzeichnis auswählen -----------------------------------------------------
(set ADMDir
(askdir
(prompt #msg-dest-prompt )
(default "sys:")
(help #msg-dest-help)
)
)
(set ADMDestDir
(tackon ADMDir "ADM")
)
(set @default-dest ADMDestDir)
; Vorhandenes Verzeichnis umbenennen? -----------------------------------------------------
(set ExistsADMDir 1)
(set ExistsADMCount 1)
(set RenameADMold "ADM.old")
(set ADMBackupName "")
(set
ExistsADMDir (exists ADMDestDir (noreq))
)
(while (> ExistsADMDir 0)
(
; ----- Backup-Name erzeugen
(while (exists (tackon ADMDir (cat "ADM.old" ExistsADMCount)) (noreq))
(set ExistsADMCount (+ ExistsADMCount 1))
)
(set ADMBackupName
(cat "ADM.old" ExistsADMCount)
)
; ---- Umbenennen
(set #msg-renameADM-prompt
(cat "\n\nEs existiert schon ein Verzeichnis namens \"ADM/\".\n\n"
"Um zu verhindern, daß bestehende Daten überschrieben "
"werden, muß es umbenannt werden.\n\n"
"Es wird nun umbenannt in \"" ADMBackupName "\"."
)
)
(rename ADMDestDir (tackon ADMDir ADMBackupName)
(prompt #msg-renameADM-prompt)
(help #msg-renameADM-help)
(confirm)
)
(if (exists (tackon ADMDir "ADM.info"))
(
(rename (tackon ADMDir "ADM.info") (tackon ADMDir (cat ADMBackupName ".info"))
(prompt #msg-renameADM-prompt)
(help #msg-renameADM-help)
)
(run (cat "c/drawicon " (tackon ADMDir (cat ADMBackupName ".info")))
)
)
)
(set
ExistsADMDir (exists ADMDestDir (noreq))
)
)
)
(complete 5)
; Verzeichnis erstellen ---------------------------------------------------------------
(makedir ADMDestDir
(prompt #msg-makediradm-prompt)
)
(if (exists "/ADM.info")
; then
(
(copyfiles
(prompt #msg-copyicon-prompt)
(help #msg-copyicon-prompt)
(source "/ADM.info")
(dest ADMDir )
(optional nofail)
)
)
; else
(
(copyfiles
(prompt #msg-copyicon-prompt)
(help #msg-copyicon-prompt)
(source "Icons/ADMdrawer")
(dest ADMDir )
(newname "ADM.info")
(optional nofail)
)
)
)
(run (cat "c/DrawIcon " ADMDestDir))
(complete 7)
; Daten kopieren ---------------------------------------------------------------
(copyfiles
(prompt #msg-copyadm-prompt)
(source "")
(dest ADMDestDir )
(infos)
(all)
(optional nofail)
)
(complete 50)
(set ADMExtName
(tackon ADMDestDir "Extern/")
)
; ARexx-Makros ---------------------------------------------------------------
(set UnpackARexx
(askbool
(prompt #msg-unpackarexx-prompt)
(help #msg-unpackarexx-help )
(default 1)
(choices "Makros installieren" "Kein Interesse")
)
)
(set ARexxArcName
(tackon ADMDestDir "ARexx/ADM-ARexxMakros.lha")
)
(if (= UnpackARexx 1)
(
(working #msg-lhxarexx)
(run (cat "c/lhx x "
ARexxArcName
" "
(tackon ADMDestDir "ARexx/")
)
)
(delete ARexxArcName)
(delete (cat ARexxArcName ".info"))
)
)
(complete 70)
; Iconset: Die Glaubensfrage ---------------------------------------------------------------
(set MagicWBInst (askchoice (choices #Iconographics #MagicWB)
(prompt (cat #msg-magicwb-prompt " " #MagicWBPr))
(help (cat #msg-magicwb-help))
(default 0)
)
)
(if (= MagicWBInst 1)
(
(working #msg-lhxmagicwb)
(run (cat "c/lhx x Icons/MagicWB-Icons.lha " ADMDestDir "/"))
(if (exists (tackon ADMDestDir "Icons/MagicWB-Icons.lha"))
(delete (tackon ADMDestDir "Icons/MagicWB-Icons.lha"))
)
)
)
(complete 75)
; Alte Daten kopieren --------------------------------------------------------
(if (NOT (= ADMBackupName ""))
(
(set OldAdrDir
(tackon (tackon ADMDir ADMBackupName) "Adressen/")
)
(set OldFormDir
(tackon (tackon ADMDir ADMBackupName) "Formulare/")
)
(set OldADMName
(tackon (tackon ADMDir ADMBackupName) "AddressMaster")
)
(set OldExtDir
(tackon (tackon ADMDir ADMBackupName) "Extern/")
)
(set ADMExtDir
(tackon ADMDestDir "Extern/")
)
; --- Adressdateien kopieren
(if (= (exists OldAdrDir) 2)
(copyfiles
(prompt #msg-copyold-prompt)
(source OldAdrDir )
(dest (tackon ADMDestDir "Adressen/"))
(infos)
(all)
(optional nofail)
)
)
; --- Formulardateien kopieren
(if (= (exists OldAdrDir) 2)
(copyfiles
(prompt #msg-copyform-prompt)
(source OldFormDir )
(dest (tackon ADMDestDir "Formulare/"))
(infos)
(all)
(optional nofail)
)
)
; --- ICON-Tooltypes kopieren
; Durch einen Bug in IconType muss IconType im
; aktuellen Verzeichnis liegen, deshalb kopiere
; ich's.
(copyfiles
(prompt #msg-copyicon-prompt)
(source (tackon ADMDestDir "c/IconType" ))
(dest ADMDestDir)
(optional nofail)
)
(if (= (exists OldADMName) 1)
(
(run
(cat "IconType " OldADMName " " (tackon ADMDestDir "AddressMaster")
)
)
)
)
(delete (tackon ADMDestDir "IconType"))
; --- ExternInfo-Dateien kopieren
(if (= (exists OldExtDir) 2)
(copyfiles
(prompt #msg-copyold-prompt)
(source OldExtDir )
(dest ADMExtDir)
(infos)
(all)
(optional nofail)
)
)
)
)
(complete 60)
; Iconset: Key-File installieren ---------------------------------------------------------------
(if (exists "/Key-File/ADM.key")
(
(copyfiles
(prompt #msg-keyfile-prompt)
(source "/Key-File/ADM.key")
(dest "devs:" )
(help #msg-keyfile-help)
(infos)
(confirm)
)
(set KeyCopied 1)
)
)
(complete 80)
; Iconset: Libraries installieren ---------------------------------------------------------------
(copylib
(prompt "\n\nInstalliere ReqTools.library nach LIBS:...\n\n(HELP für Hilfe)\n\n")
(help "\nDie ReqTools.library und RexxReqTools.library werden von ADM-Makros "
"dazu verwendet, Requester und Dateiauswahlfenster zu öffnen. "
@copylib-help)
(source "libs/ReqTools.library")
(dest "LIBS:")
(confirm)
)
(complete 83)
(copylib
(prompt "\n\nInstalliere RexxReqtools.library nach LIBS:...\n\n('HELP' für Hinweise)")
(help "\nDie ReqTools.library und RexxReqTools.library werden von ADM-Makros "
"dazu verwendet, Requester und Dateiauswahlfenster zu öffnen. "
@copylib-help)
(source "libs/rexxreqtools.library")
(dest "LIBS:")
(confirm)
)
(complete 86)
(if (= (exists ("sys:classes/gadgets")) 2)
(
(copylib
(prompt "\n\nInstalliere textfield.gadget\n")
(help "\nDas Textfield.gadget wird vom Bemerkungsfeld verwendet. "
@copylib-help)
(source "gadgets/textfield.gadget")
(dest "sys:classes/gadgets/")
(confirm)
)
)
)
(complete 90)
; Nicht mehr nötige Sachen löschen --------------------------------------------
(if (exists (tackon ADMDestDir "Installieren"))
(delete (tackon ADMDestDir "Installieren"))
)
(if (exists (tackon ADMDestDir "Installieren.info"))
(delete (tackon ADMDestDir "Installieren.info"))
)
(complete 100)
; Finally, it's happy to be... -----------------------------------------------
(message
"\nAddressMaster (ADM) ist nun installiert.\n\n"
"Um alte Adreßdaten (z.B. von Addresser, DFA oder "
"MasterAddress) weiterzuverwenden, können sie mit dem "
"beiliegenden Datenumwandler komfortabel in ADM-Dateien "
"umgewandelt werden.\n\n"
"Desweiteren liegen verschiedene ADM-Makros bei, "
"die den Import anderer Formate (ASCII, SBase4, "
"Excel, AdressControl) und den Export zur weiteren Verwendung "
"der Daten ermöglichen."
)
(message "\n"
"Die Dokumentation des Programms ist überall im Programm "
"\"online\" durch Drücken der \"HELP\"-Taste in einem "
"Fenster oder aktivem Eingabefeld erreichbar.\n\n"
"Man kann ADM auch sehr leicht ohne Anleitung kennenlernen, "
"manche Besonderheiten wird man dann jedoch nie entdecken."
)
(if (= KeyCopied 1)
(
(message "\nNochmals herzlichen Dank für Ihre Registrierung!\n\n"
"Bitte geben Sie Ihr persönliches \"Key-File\" auch nicht "
"an einen guten Freund weiter - es enthält Ihren Namen "
"und Ihre Adresse.\n"
"Nur durch Ihre Unterstützung ist sichergestellt, daß ADM auch in Zukunft "
"weiterentwickelt wird und weitere Shareware-Produkte "
"von mir für den Amiga entstehen!"
)
)
(
(message "\nBitte nicht vergessen:\n\nAddressMaster (ADM) ist\n--- SHAREWARE---\n\n"
"Wenn Sie ADM kennengelernt haben und es öfters benutzen "
"wollen, sollten Sie sich für nur DM 25,- registrieren lassen!\n"
"Nur durch Ihre Unterstützung ist sichergestellt, daß ADM auch in Zukunft "
"weiterentwickelt wird und weitere Shareware-Produkte "
"von mir für den Amiga entstehen!"
)
)
)
(message "\n\n\nIch freue mich auch über Vorschläge und jede Art von 'Feed-Back'!"
"\nSenden Sie diese an meine in der Dokumentation angegebene "
"Adresse oder im Internet an jan@digit.franken.de."
"\n\nViel Spaß mit ADM wünscht Ihnen\nJan Geißler")
(exit)
; =============================================================================
; =============================================================================